Option Explicit
Sub G_Sample001()
    'ո G_Data01
    Dim myShp  As Shape
    Dim mySht1 As Worksheet
    Dim mySht2 As Worksheet
    Dim i      As Long
    Set mySht1 = Worksheets("G_Data01") 'N
    Set mySht2 = Worksheets.Add                 'sWu@
    mySht2.Cells(1, 1).Resize(, 8).Value = _
        Array("Name", "Top", "Left", "Height", "Width", "Type", _
        "TypeName", "TopLeftCell", "BottomRightCell")
    i = 1
    mySht1.Select
    For Each myShp In mySht1.Shapes
        i = i + 1
        With myShp
            .Select
            mySht2.Cells(i, 1).Resize(, 8).Value = _
            Array(.Name, .Top, .Left, .Height, .Width, .Type, _
            TypeName(Selection), .TopLeftCell.Address, _
                  .BottomRightCell.Address)
        End With
    Next
    mySht2.Select
    Set mySht1 = Nothing                                    '
    Set mySht2 = Nothing
End Sub
